home *** CD-ROM | disk | FTP | other *** search
/ Elite European Models 1 / Elite European Models 1.iso / pc / elite.dxr / 00707_B2.2-print.ls < prev    next >
Encoding:
Text File  |  1996-05-06  |  490 b   |  21 lines
  1. global gPictSprite, gCenterH, gCenterV
  2.  
  3. on mouseDown
  4.   if the timer < 60 then
  5.     exit
  6.   end if
  7.   if the stretch of sprite gPictSprite = 0 then
  8.     zoomSprite(gPictSprite, point(gCenterH, gCenterV), gCenterH, gCenterV)
  9.   end if
  10.   puppetSprite(gPictSprite, 1)
  11.   hideShow(3, 9, 0, 0)
  12.   hideShow(10, 11, 1, 0)
  13.   moveSprites(3, 9, -1)
  14.   printFrom(the frame, the frame, 75)
  15.   hideShow(10, 11, 0, 0)
  16.   hideShow(3, 9, 1, 0)
  17.   moveSprites(3, 9, 1)
  18.   puppetSprite(gPictSprite, 0)
  19.   startTimer()
  20. end
  21.